-- background: 2629 from stack: in.1
-- bmap block id: 5537
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground

on OpenCard
  SetCard
end OpenCard

on newCard
  set cursor to busy
  set lockscreen to true
  put 215 into Recty
  put 229 into Recth
  put 222 into Locy
  DoMenu "New Button"
  Set visible of button "New Button" to False
  Set showName of button "New Button" to False
  Set style of button "New Button" to checkBox
  Set autoHilite of button "New Button" to true
  Set visible of button "New Button" to true
  DoMenu "Cut Button"
  repeat with count=1 to 3
    DoMenu "Paste Button"
    Set Rect of button "New Button" to 349,Recty,366,Recth
    Set Loc of button "New Button" to 357,Locy
    put "Irregular" && count into ButtonName
    Set name of button "New Button" to ButtonName
    Add 17 to Recty
    Add 17 to Recth
    Add 17 to Locy
    set cursor to busy
  end repeat
  choose browse tool
  set lockscreen to false
end newCard

on deleteCard
  RefreshScreen
end deleteCard

on MouseUp
  If (the ClickH>349) and (the ClickH<367) and (the ClickV>214) and (the ClickV<232) then
    put "Present" into background field "Tense"
    If hilite of card button "Irregular 1" is true then
      DoIrregular Present
    else
      FormVerb 1
    end if
  else
    If (the ClickH>349) and (the ClickH<367) and (the ClickV>232) and (the ClickV<249) then
      put "Preterite" into background field "Tense"
      if hilite of card button "Irregular 2" is true then
        DoIrregular Preterite
      else
        FormVerb 2
      end if
    else
      if the hilite of card button "Irregular 3" is true then
        show background field "Irregular Participle"
      else
        hide background field "Irregular Participle"
      end if
    end if
  end if
end MouseUp









-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=307 right=325 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compound
----- HyperTalk script -----
on mouseDown
  putChoices "ComChoices","Pluperfect" &return& "Future Perfect" &return& "Present Perfect" &return& "Conditional Perfect" & return ,"Compound"
end mouseDown

on mouseUp
  hide background field "ComChoices"
  set hilite of background button "Compound" to false
end mouseUp

on mouseLeave
  LocateMouse "ComChoices", "Compound"
end mouseLeave




-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=67 top=307 right=327 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Conditional
----- HyperTalk script -----
on mouseUp
  put "Conditional" into background field "Tense"
  FormVerb 5
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=128 top=309 right=329 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Future
----- HyperTalk script -----
on mouseUp
  put "Future" into background field "Tense"
  FormVerb 4
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=191 top=313 right=331 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Imperfect
----- HyperTalk script -----
on mouseUp
  put "Imperfect Indicative" into background field "Tense"
  FormVerb 3
end mouseUp





-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=246 top=314 right=333 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Present
----- HyperTalk script -----
on mouseUp
  put "Present" into background field "Tense"
  if hilite of card button "Irregular 1" is false then
    FormVerb 1
  else
    put 1 into background field "SubjectRef"
    DoIrregular Present
  end if
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=309 top=317 right=335 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Preterite
----- HyperTalk script -----
on mouseUp
  put "Preterite" into background field "Tense"
  if hilite of card button "Irregular 2" is false then
    FormVerb 2
  else
    put 2 into background field "SubjectRef"
    DoIrregular Preterite
  end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=374 top=317 right=337 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Progressive
----- HyperTalk script -----
on mouseDown
  PutChoices "ProgChoices", "Past" &return& "Future" &return& "Present" &return& "Conditional" &return, "Progressive"
end mouseDown

on mouseUp
  hide background field "ProgChoices"
  set hilite of background button "Progressive" to false
end mouseUp

on mouseLeave
  LocateMouse "ProgChoices", "Progressive"
end mouseLeave





-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=321 right=339 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subjunctive
----- HyperTalk script -----
on mouseDown
  PutChoices "SubChoices", "Present" &return& "Imperfect" &return& "Pluperfect" &return& "Present Perfect" & return, "Subjunctive"
end mouseDown

on mouseUp
  hide background field "SubChoices"
  set hilite of background button "Subjunctive" to false
end mouseUp

on mouseLeave
  LocateMouse "SubChoices", "Subjunctive"
end mouseLeave





-- part 29 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=40 top=123 right=160 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal1


-- part 30 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=40 top=178 right=214 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal2


-- part 31 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=180 top=178 right=214 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal5


-- part 32 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=180 top=124 right=160 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal4


-- part 33 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=40 top=234 right=270 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal3


-- part 34 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=180 top=234 right=270 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Normal6


-- part 48 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=346 top=119 right=147 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: English


-- part 52 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=30 top=63 right=95 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 24
-- style flags: 24576
-- line height: 32
-- part name: Verb


-- part 67 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=286 right=306 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to next card of background id 2629
end mouseUp





-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=406 top=286 right=306 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to prev card of bg id 2629
end mouseUp




-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=339 top=286 right=306 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  lock screen
  RefreshScreen
  go home
  unlock screen with visual effect dissolve
end mouseUp



-- part 92 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=452 top=285 right=308 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp

  -- Global PrevTense
  -- RefreshScreen
  visual effect dissolve
  go to card id 73808
end mouseUp



-- part 99 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=123 right=160 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present1


-- part 100 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=178 right=214 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present2


-- part 101 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=234 right=270 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present3


-- part 102 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=124 right=160 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present4


-- part 103 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=178 right=214 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present5


-- part 104 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=234 right=270 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Present6


-- part 110 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=234 right=270 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite3


-- part 108 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=123 right=160 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite1


-- part 130 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=353 top=264 right=279 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Irregular Participle


-- part 139 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=348 top=162 right=177 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SubjectRef
----- HyperTalk script -----
-- This Field Is Used To Store The Tense Number Of The Card
-- It Is Also Used In By The Quizzer.

-- DO NOT DELETE!


-- part 49 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=346 top=160 right=187 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Tense


-- part 89 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=374 top=270 right=323 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ProgChoices
----- HyperTalk script -----
on ManageResponse
  Global MenuChoice
  if MenuChoice is "Past" then
    put "Past Progressive" into background field "Tense"
    FormVerb 7
  else
    if MenuChoice is "Present" then
      put "Present Progressive" into background field "Tense"
      FormVerb 6
    else
      if MenuChoice is "Conditional" then
        put "Conditional Progressive" into background field "Tense"
        FormVerb 8
      else if MenuChoice is "Future" then
        put "Future Progressive" into background field "Tense"
        FormVerb 9
      end if
    end if
  end if
end ManageResponse






-- part 109 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=40 top=178 right=214 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite2


-- part 111 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=124 right=160 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite4


-- part 112 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=178 right=214 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite5


-- part 113 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=180 top=234 right=270 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Preterite6


-- part 98 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=13 top=258 right=311 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ComChoices
----- HyperTalk script -----
On ManageResponse
  Global MenuChoice
  put MenuChoice into background field "Tense"
  If MenuChoice is "Present Perfect" then
    FormVerb 10
  else
    If MenuChoice is "Pluperfect" then
      FormVerb 11
    else
      if MenuChoice is "Future Perfect" then
        FormVerb 12
      else
        if MenuChoice is "Conditional Perfect" then
          FormVerb 13
        end if
      end if
    end if
  end if
end ManageResponse







-- part 131 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=428 top=270 right=325 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: SubChoices
----- HyperTalk script -----
On ManageResponse
  Global MenuChoice
  put MenuChoice && "Subjunctive" into background field "Tense"
  If MenuChoice is "Present" then
    if the hilite of card button "Irregular 1" is true then
      get background field "Present1"
      if Length(it)<2 then
        put "To form the Present Subjunctive, you must first" && "enter the irregular conjugation of the Present Tense." into background field "ConjError"
        show background field "ConjError"
      else
        FormVerb 14
      end if
    else
      FormVerb 14
    end if
  else
    If MenuChoice is "Imperfect" then
      if the hilite of card button "Irregular 2" is true then
        get background field "Preterite6"
        if Length(it)<2 then
          put "To form the Imperfect Subjunctive, you must first" && "enter the irregular conjugation of the Preterite." into background field "ConjError"
          show background field "ConjError"
        else
          FormVerb 15
        end if
      else
        FormVerb 15
      end if
    else
      if MenuChoice is "Present Perfect" then
        FormVerb 16
      else
        if MenuChoice is "Pluperfect" then
          FormVerb 17
        end if
      end if
    end if
  end if
end ManageResponse





-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=276 right=303 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  push this card
  get background field "SubjectRef"
  visual effect dissolve
  if it is 1 then go to card id 68845
  if it is 2 then go to card id 68487
  if it is 3 then go to card id 67473
  if it is 4 then go to card id 67230
  if it is 5 then go to card id 68079
  if it is 6 then go to card id 62160
  if it is 7 then go to card id 62630
  if it is 8 then go to card id 63114
  if it is 9 then go to card id 63298
  if it is 10 then go to card id 59196
  if it is 11 then go to card id 60063
  if it is 12 then go to card id 60219
  if it is 13 then go to card id 60935
  if it is 14 then go to card id 66509
  if it is 15 then go to card id 65165
  if it is 16 then go to card id 65477
  if it is 17 then go to card id 66271
end mouseUp



-- part 136 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=191 top=276 right=300 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer "Alphabetize cards using:" with "Spanish" or "English" or "Cancel"
  if it is not "Cancel" then
    lock screen
    set cursor to watch
    if it is "English" then
      sort ascending text by background field "English"
    else
      if it is "Spanish" then
        sort ascending text by background field "Verb"
      end if
    end if
    go to first card of bg id 2629
    unlock screen
  end if
end mouseUp






-- part 137 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=118 top=276 right=302 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Look For
----- HyperTalk script -----
function LocateText SearchStr
Global CardRef
find whole SearchStr
if the Result is "Not Found" then
  return the result
else
  if the id of this background is 2629 then
    if (background field "Verb" contains SearchStr) or (background field "English" contains SearchStr) then
      put the id of this card into CardRef
      return "Found"
    else
      return "Not Found"
    end if
  else
    go to next card
  end if
end if
end LocateText

on mouseUp
  Global Target, FmrTarget, CardRef, FmrCardRef
  ask "Enter verb or definition to look for." with FmrTarget
  if it is not empty then
    lock screen
    put it into Target
    get the id of this card
    if (FmrCardRef is it) and (FmrTarget is Target) then go to next card
    repeat
      set cursor to busy
      get  LocateText(Target)
      if it is "Not Found" then
        put empty into FmrTarget
        beep
        exit repeat
      else
        if it is "Found" then
          if (Target is FmrTarget) and (CardRef is FmrCardRef) then
            put empty into FmrTarget
            beep
          else
            put Target into FmrTarget
            put the id of this card into FmrCardRef
          end if
          exit repeat
        end if
      end if
    end repeat
    unlock screen
  end if
end mouseUp




-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=366 top=286 right=306 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  answer "Print this card?" with "Yes" or "No"
  if it is "Yes" then print card
end mouseUp




-- part 141 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=90 top=148 right=218 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ConjError
----- HyperTalk script -----
on mouseUp
  Global MenuChoice
  hide background field "ConjError"
  if MenuChoice is "Present" then
    put "Present" into background field "Tense"
    DoIrregular Present
  else
    put "Preterite" into background field "Tense"
    DoIrregular Preterite
  end if
end mouseUp